/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / find-gc.elc.z / find-gc.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 35 | 3a 31 33 3a 33 39 20 31 |an 14 05|:13:39 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 66 69 6e 64 2d 67 |19.0/lis|p/find-g|
|00000070| 63 2e 65 6c 0a 3b 3b 3b | 20 65 6d 61 63 73 20 76 |c.el.;;;| emacs v|
|00000080| 65 72 73 69 6f 6e 20 31 | 39 2e 33 30 2e 37 30 2e |ersion 1|9.30.70.|
|00000090| 36 2e 0a 3b 3b 3b 20 62 | 79 74 65 63 6f 6d 70 20 |6..;;; b|ytecomp |
|000000a0| 76 65 72 73 69 6f 6e 20 | 46 53 46 20 32 2e 31 30 |version |FSF 2.10|
|000000b0| 0a 3b 3b 3b 20 6f 70 74 | 69 6d 69 7a 61 74 69 6f |.;;; opt|imizatio|
|000000c0| 6e 20 69 73 20 6f 6e 2e | 0a 3b 3b 3b 20 74 68 69 |n is on.|.;;; thi|
|000000d0| 73 20 66 69 6c 65 20 75 | 73 65 73 20 6f 70 63 6f |s file u|ses opco|
|000000e0| 64 65 73 20 77 68 69 63 | 68 20 64 6f 20 6e 6f 74 |des whic|h do not|
|000000f0| 20 65 78 69 73 74 20 69 | 6e 20 45 6d 61 63 73 20 | exist i|n Emacs |
|00000100| 31 38 2e 0a 0a 28 69 66 | 20 28 61 6e 64 20 28 62 |18...(if| (and (b|
|00000110| 6f 75 6e 64 70 20 27 65 | 6d 61 63 73 2d 76 65 72 |oundp 'e|macs-ver|
|00000120| 73 69 6f 6e 29 0a 09 20 | 28 6f 72 20 28 61 6e 64 |sion).. |(or (and|
|00000130| 20 28 62 6f 75 6e 64 70 | 20 27 65 70 6f 63 68 3a | (boundp| 'epoch:|
|00000140| 3a 76 65 72 73 69 6f 6e | 29 20 65 70 6f 63 68 3a |:version|) epoch:|
|00000150| 3a 76 65 72 73 69 6f 6e | 29 0a 09 20 20 20 20 20 |:version|)..     |
|00000160| 28 73 74 72 69 6e 67 2d | 6c 65 73 73 70 20 65 6d |(string-|lessp em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 20 22 31 39 2e |acs-vers|ion "19.|
|00000180| 32 39 22 29 29 29 0a 20 | 20 20 20 28 65 72 72 6f |29"))). |   (erro|
|00000190| 72 20 22 60 66 69 6e 64 | 2d 67 63 2e 65 6c 27 20 |r "`find|-gc.el' |
|000001a0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|000001b0| 20 45 6d 61 63 73 20 31 | 39 2e 32 39 20 6f 72 20 | Emacs 1|9.29 or |
|000001c0| 6c 61 74 65 72 22 29 29 | 0a 0a 0a 28 64 65 66 61 |later"))|...(defa|
|000001d0| 6c 69 61 73 20 27 66 69 | 6e 64 2d 67 63 2d 75 6e |lias 'fi|nd-gc-un|
|000001e0| 73 61 66 65 20 23 5b 6e | 69 6c 20 22 c0 c1 21 88 |safe #[n|il "..!.|
|000001f0| c2 20 88 c3 c4 21 88 c5 | 0e 06 c7 5c 22 89 16 06 |. ...!..|...\"...|
|00000200| 87 22 20 5b 74 72 61 63 | 65 2d 63 61 6c 6c 2d 74 |." [trac|e-call-t|
|00000210| 72 65 65 20 6e 69 6c 20 | 74 72 61 63 65 2d 75 73 |ree nil |trace-us|
|00000220| 65 2d 74 72 65 65 20 66 | 69 6e 64 2d 75 6e 73 61 |e-tree f|ind-unsa|
|00000230| 66 65 2d 66 75 6e 63 73 | 20 46 67 61 72 62 61 67 |fe-funcs| Fgarbag|
|00000240| 65 5f 63 6f 6c 6c 65 63 | 74 20 73 6f 72 74 20 75 |e_collec|t sort u|
|00000250| 6e 73 61 66 65 2d 6c 69 | 73 74 20 23 5b 28 78 20 |nsafe-li|st #[(x |
|00000260| 79 29 20 22 08 40 09 40 | 99 87 22 20 5b 78 20 79 |y) ".@.@|.." [x y|
|00000270| 5d 20 32 5d 5d 20 33 5d | 29 0a 28 62 79 74 65 2d |] 2]] 3]|).(byte-|
|00000280| 63 6f 64 65 20 22 c0 11 | c2 87 22 20 5b 22 2f 75 |code "..|.." ["/u|
|00000290| 73 72 2f 67 6e 75 2f 73 | 72 63 2f 64 69 73 74 2f |sr/gnu/s|rc/dist/|
|000002a0| 73 72 63 22 20 65 6d 61 | 63 73 2d 73 6f 75 72 63 |src" ema|cs-sourc|
|000002b0| 65 2d 64 69 72 65 63 74 | 6f 72 79 20 6e 69 6c 5d |e-direct|ory nil]|
|000002c0| 20 31 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 | 1).(def|alias 'f|
|000002d0| 69 6e 64 2d 75 6e 73 61 | 66 65 2d 66 75 6e 63 73 |ind-unsa|fe-funcs|
|000002e0| 20 23 5b 28 74 61 72 67 | 65 74 29 20 22 08 43 43 | #[(targ|et) ".CC|
|000002f0| 11 c2 08 21 87 22 20 5b | 74 61 72 67 65 74 20 75 |...!." [|target u|
|00000300| 6e 73 61 66 65 2d 6c 69 | 73 74 20 74 72 61 63 65 |nsafe-li|st trace|
|00000310| 2d 75 6e 73 61 66 65 5d | 20 32 5d 29 0a 28 64 65 |-unsafe]| 2]).(de|
|00000320| 66 61 6c 69 61 73 20 27 | 74 72 61 63 65 2d 75 6e |falias '|trace-un|
|00000330| 73 61 66 65 20 23 5b 28 | 66 75 6e 63 29 20 22 08 |safe #[(|func) ".|
|00000340| 09 9e 89 1a 84 0e 00 c3 | c4 0d 40 5c 22 88 5c 6e |........|..@\".\n|
|00000350| 41 89 12 85 33 00 5c 6e | 40 0d 9e 84 0e 00 5c 6e |A...3.\n|@.....\n|
|00000360| 40 0e 06 3e 84 0e 00 5c | 6e 40 08 42 0d 42 15 c7 |@..>...\|n@.B.B..|
|00000370| 5c 6e 40 21 88 82 0e 00 | 29 87 22 20 5b 66 75 6e |\n@!....|)." [fun|
|00000380| 63 20 73 75 62 72 73 2d | 75 73 65 64 20 75 73 65 |c subrs-|used use|
|00000390| 64 20 65 72 72 6f 72 20 | 22 4e 6f 20 73 75 62 72 |d error |"No subr|
|000003a0| 73 2d 75 73 65 64 20 66 | 6f 72 20 25 73 22 20 75 |s-used f|or %s" u|
|000003b0| 6e 73 61 66 65 2d 6c 69 | 73 74 20 6e 6f 72 65 74 |nsafe-li|st noret|
|000003c0| 75 72 6e 2d 6c 69 73 74 | 20 74 72 61 63 65 2d 75 |urn-list| trace-u|
|000003d0| 6e 73 61 66 65 5d 20 34 | 5d 29 0a 28 62 79 74 65 |nsafe] 4|]).(byte|
|000003e0| 2d 63 6f 64 65 20 22 c0 | 11 c2 87 22 20 5b 28 46 |-code ".|..." [(F|
|000003f0| 73 69 67 6e 61 6c 20 46 | 74 68 72 6f 77 20 77 72 |signal F|throw wr|
|00000400| 6f 6e 67 5f 74 79 70 65 | 5f 61 72 67 75 6d 65 6e |ong_type|_argumen|
|00000410| 74 29 20 6e 6f 72 65 74 | 75 72 6e 2d 6c 69 73 74 |t) noret|urn-list|
|00000420| 20 6e 69 6c 5d 20 31 29 | 0a 28 64 65 66 61 6c 69 | nil] 1)|.(defali|
|00000430| 61 73 20 27 74 72 61 63 | 65 2d 63 61 6c 6c 2d 74 |as 'trac|e-call-t|
|00000440| 72 65 65 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ree #[(&|optional|
|00000450| 20 61 6c 72 65 61 64 79 | 2d 73 65 74 75 70 29 20 | already|-setup) |
|00000460| 22 c0 c1 21 88 5c 6e 84 | 2a 00 c3 c4 c5 89 89 c6 |"..!.\n.|*.......|
|00000470| c7 26 06 88 c3 c4 c5 89 | 89 c6 c8 26 06 88 c3 c4 |.&......|...&....|
|00000480| c5 89 89 c6 c9 ca 0e 0b | 5c 22 26 06 88 8a cc cd |........|\"&.....|
|00000490| 21 71 88 c5 16 0e c5 0e | 0f c5 89 1e 10 1e 11 1e |!q......|........|
|000004a0| 12 1e 13 0e 12 85 d3 00 | c0 d4 0e 12 40 5c 22 88 |........|....@\".|
|000004b0| c3 c4 c5 89 89 c6 c9 d5 | 0e 12 40 5c 22 26 06 88 |........|..@\"&..|
|000004c0| d6 20 88 d7 d8 0e 12 40 | d9 51 21 88 da db c5 dc |. .....@|.Q!.....|
|000004d0| 23 83 c0 00 60 dd 5a 66 | de 55 83 9c 00 df e0 21 |#...`.Zf|.U.....!|
|000004e0| 88 e1 e2 94 e2 95 7b 21 | 16 11 c0 e3 0e 12 40 0e |......{!|......@.|
|000004f0| 11 23 88 0e 11 43 89 16 | 10 0e 0e 42 16 0e 82 67 |.#...C..|...B...g|
|00000500| 00 df e4 21 83 67 00 e1 | e5 94 e5 95 7b 21 89 16 |...!.g..|....{!..|
|00000510| 11 0e 10 41 3e 84 67 00 | 0e 10 0e 11 0e 10 41 42 |...A>.g.|......AB|
|00000520| a1 88 82 67 00 e6 d8 0e | 12 40 d9 51 21 88 0e 12 |...g....|.@.Q!...|
|00000530| 41 89 16 12 84 45 00 c5 | 2d 87 22 20 5b 6d 65 73 |A....E..|-." [mes|
|00000540| 73 61 67 65 20 22 53 65 | 74 74 69 6e 67 20 75 70 |sage "Se|tting up|
|00000550| 20 64 69 72 65 63 74 6f | 72 69 65 73 2e 2e 2e 22 | directo|ries..."|
|00000560| 20 61 6c 72 65 61 64 79 | 2d 73 65 74 75 70 20 63 | already|-setup c|
|00000570| 61 6c 6c 2d 70 72 6f 63 | 65 73 73 20 22 63 73 68 |all-proc|ess "csh|
|00000580| 22 20 6e 69 6c 20 22 2d | 63 22 20 22 72 6d 20 2d |" nil "-|c" "rm -|
|00000590| 72 66 20 2f 74 6d 70 2f | 65 73 72 63 22 20 22 6d |rf /tmp/|esrc" "m|
|000005a0| 6b 64 69 72 20 2f 74 6d | 70 2f 65 73 72 63 22 20 |kdir /tm|p/esrc" |
|000005b0| 66 6f 72 6d 61 74 20 22 | 6c 6e 20 2d 73 20 25 73 |format "|ln -s %s|
|000005c0| 2f 2a 2e 5b 63 68 5d 20 | 2f 74 6d 70 2f 65 73 72 |/*.[ch] |/tmp/esr|
|000005d0| 63 22 20 65 6d 61 63 73 | 2d 73 6f 75 72 63 65 2d |c" emacs|-source-|
|000005e0| 64 69 72 65 63 74 6f 72 | 79 20 67 65 74 2d 62 75 |director|y get-bu|
|000005f0| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 2a 54 72 |ffer-cre|ate "*Tr|
|00000600| 61 63 65 20 43 61 6c 6c | 20 54 72 65 65 2a 22 20 |ace Call| Tree*" |
|00000610| 73 75 62 72 73 2d 63 61 | 6c 6c 65 64 20 73 6f 75 |subrs-ca|lled sou|
|00000620| 72 63 65 2d 66 69 6c 65 | 73 20 65 6e 74 72 79 20 |rce-file|s entry |
|00000630| 6e 61 6d 65 20 66 69 6c | 65 73 20 63 61 73 65 2d |name fil|es case-|
|00000640| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 22 43 6f 6d |fold-sea|rch "Com|
|00000650| 70 69 6c 69 6e 67 20 25 | 73 2e 2e 2e 22 20 22 67 |piling %|s..." "g|
|00000660| 63 63 20 2d 64 72 20 2d | 63 20 2f 74 6d 70 2f 65 |cc -dr -|c /tmp/e|
|00000670| 73 72 63 2f 25 73 20 2d | 6f 20 2f 64 65 76 2f 6e |src/%s -|o /dev/n|
|00000680| 75 6c 6c 22 20 65 72 61 | 73 65 2d 62 75 66 66 65 |ull" era|se-buffe|
|00000690| 72 20 69 6e 73 65 72 74 | 2d 66 69 6c 65 2d 63 6f |r insert|-file-co|
|000006a0| 6e 74 65 6e 74 73 20 22 | 2f 74 6d 70 2f 65 73 72 |ntents "|/tmp/esr|
|000006b0| 63 2f 22 20 22 2e 72 74 | 6c 22 20 72 65 2d 73 65 |c/" ".rt|l" re-se|
|000006c0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 3b 3b |arch-for|ward ";;|
|000006d0| 20 46 75 6e 63 74 69 6f | 6e 20 5c 5c 7c 28 63 61 | Functio|n \\|(ca|
|000006e0| 6c 6c 5f 69 6e 73 6e 20 | 22 20 74 20 33 20 31 31 |ll_insn |" t 3 11|
|000006f0| 31 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 5b 61 |1 lookin|g-at "[a|
|00000700| 2d 7a 41 2d 5a 30 2d 39 | 5f 5d 2b 22 20 69 6e 74 |-zA-Z0-9|_]+" int|
|00000710| 65 72 6e 20 30 20 22 25 | 73 20 3a 20 25 73 22 20 |ern 0 "%|s : %s" |
|00000720| 22 2e 2a 5c 6e 3f 2e 2a | 5c 22 5c 5c 28 5b 41 2d |".*\n?.*|\"\\([A-|
|00000730| 5a 61 2d 7a 30 2d 39 5f | 5d 2b 5c 5c 29 5c 22 22 |Za-z0-9_|]+\\)\""|
|00000740| 20 31 20 64 65 6c 65 74 | 65 2d 66 69 6c 65 5d 20 | 1 delet|e-file] |
|00000750| 31 30 5d 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |10]).(by|te-code |
|00000760| 22 c0 11 c2 87 22 20 5b | 28 22 64 69 73 70 6e 65 |"...." [|("dispne|
|00000770| 77 2e 63 22 20 22 73 63 | 72 6f 6c 6c 2e 63 22 20 |w.c" "sc|roll.c" |
|00000780| 22 78 64 69 73 70 2e 63 | 22 20 22 77 69 6e 64 6f |"xdisp.c|" "windo|
|00000790| 77 2e 63 22 20 22 74 65 | 72 6d 2e 63 22 20 22 63 |w.c" "te|rm.c" "c|
|000007a0| 6d 2e 63 22 20 22 65 6d | 61 63 73 2e 63 22 20 22 |m.c" "em|acs.c" "|
|000007b0| 6b 65 79 62 6f 61 72 64 | 2e 63 22 20 22 6d 61 63 |keyboard|.c" "mac|
|000007c0| 72 6f 73 2e 63 22 20 22 | 6b 65 79 6d 61 70 2e 63 |ros.c" "|keymap.c|
|000007d0| 22 20 22 73 79 73 64 65 | 70 2e 63 22 20 22 62 75 |" "sysde|p.c" "bu|
|000007e0| 66 66 65 72 2e 63 22 20 | 22 66 69 6c 65 6c 6f 63 |ffer.c" |"fileloc|
|000007f0| 6b 2e 63 22 20 22 69 6e | 73 64 65 6c 2e 63 22 20 |k.c" "in|sdel.c" |
|00000800| 22 6d 61 72 6b 65 72 2e | 63 22 20 22 6d 69 6e 69 |"marker.|c" "mini|
|00000810| 62 75 66 2e 63 22 20 22 | 66 69 6c 65 69 6f 2e 63 |buf.c" "|fileio.c|
|00000820| 22 20 22 64 69 72 65 64 | 2e 63 22 20 22 66 69 6c |" "dired|.c" "fil|
|00000830| 65 6d 6f 64 65 2e 63 22 | 20 22 63 6d 64 73 2e 63 |emode.c"| "cmds.c|
|00000840| 22 20 22 63 61 73 65 66 | 69 64 64 6c 65 2e 63 22 |" "casef|iddle.c"|
|00000850| 20 22 69 6e 64 65 6e 74 | 2e 63 22 20 22 73 65 61 | "indent|.c" "sea|
|00000860| 72 63 68 2e 63 22 20 22 | 72 65 67 65 78 2e 63 22 |rch.c" "|regex.c"|
|00000870| 20 22 75 6e 64 6f 2e 63 | 22 20 22 61 6c 6c 6f 63 | "undo.c|" "alloc|
|00000880| 2e 63 22 20 22 64 61 74 | 61 2e 63 22 20 22 64 6f |.c" "dat|a.c" "do|
|00000890| 63 2e 63 22 20 22 65 64 | 69 74 66 6e 73 2e 63 22 |c.c" "ed|itfns.c"|
|000008a0| 20 22 63 61 6c 6c 69 6e | 74 2e 63 22 20 22 65 76 | "callin|t.c" "ev|
|000008b0| 61 6c 2e 63 22 20 22 66 | 6e 73 2e 63 22 20 22 70 |al.c" "f|ns.c" "p|
|000008c0| 72 69 6e 74 2e 63 22 20 | 22 6c 72 65 61 64 2e 63 |rint.c" |"lread.c|
|000008d0| 22 20 22 61 62 62 72 65 | 76 2e 63 22 20 22 73 79 |" "abbre|v.c" "sy|
|000008e0| 6e 74 61 78 2e 63 22 20 | 22 75 6e 65 78 65 63 2e |ntax.c" |"unexec.|
|000008f0| 63 22 20 22 6d 6f 63 6b | 6c 69 73 70 2e 63 22 20 |c" "mock|lisp.c" |
|00000900| 22 62 79 74 65 63 6f 64 | 65 2e 63 22 20 22 70 72 |"bytecod|e.c" "pr|
|00000910| 6f 63 65 73 73 2e 63 22 | 20 22 63 61 6c 6c 70 72 |ocess.c"| "callpr|
|00000920| 6f 63 2e 63 22 20 22 64 | 6f 70 72 6e 74 2e 63 22 |oc.c" "d|oprnt.c"|
|00000930| 20 22 78 31 31 74 65 72 | 6d 2e 63 22 20 22 78 31 | "x11ter|m.c" "x1|
|00000940| 31 66 6e 73 2e 63 22 29 | 20 73 6f 75 72 63 65 2d |1fns.c")| source-|
|00000950| 66 69 6c 65 73 20 6e 69 | 6c 5d 20 31 29 0a 28 64 |files ni|l] 1).(d|
|00000960| 65 66 61 6c 69 61 73 20 | 27 74 72 61 63 65 2d 75 |efalias |'trace-u|
|00000970| 73 65 2d 74 72 65 65 20 | 23 5b 6e 69 6c 20 22 c0 |se-tree |#[nil ".|
|00000980| c1 c0 c2 0b 5c 22 5c 22 | 14 0b c5 89 1e 06 1e 07 |....\"\"|........|
|00000990| 89 1e 08 85 47 00 0e 08 | 40 16 07 0e 07 41 89 16 |....G...|@....A..|
|000009a0| 07 83 3d 00 0e 07 40 5c | 66 9e 89 16 06 83 1a 00 |..=...@\|f.......|
|000009b0| 0e 06 0e 08 40 40 0e 06 | 41 42 a1 88 82 1a 00 0e |....@@..|AB......|
|000009c0| 08 41 89 16 08 84 15 00 | c5 2b 87 22 20 5b 6d 61 |.A......|.+." [ma|
|000009d0| 70 63 61 72 20 6c 69 73 | 74 20 63 61 72 20 73 75 |pcar lis|t car su|
|000009e0| 62 72 73 2d 63 61 6c 6c | 65 64 20 73 75 62 72 73 |brs-call|ed subrs|
|000009f0| 2d 75 73 65 64 20 6e 69 | 6c 20 66 6f 75 6e 64 20 |-used ni|l found |
|00000a00| 70 32 20 70 74 72 5d 20 | 36 5d 29 0a             |p2 ptr] |6]).    |
+--------+-------------------------+-------------------------+--------+--------+